home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / form1040.sit / Form 1040 / card_2982.txt < prev    next >
Text File  |  1988-02-12  |  12KB  |  522 lines
  1. -- card: 2982 from stack: in
  2. -- bmap block id: 5103
  3. -- flags: 4000
  4. -- background id: 6557
  5. -- name: 2
  6. ----- HyperTalk script -----
  7. On OpenCard
  8.   Put 2 Into Bkgnd field ID 26
  9. end OpenCard
  10.  
  11. On ClearInfo
  12.   Put empty into Card field ID 17 of Card ID 2982
  13.   Put empty into Card field ID 18 of Card ID 2982
  14.   Put empty into Card field ID 19 of Card ID 2982
  15.   Set hilite of Card button ID 1 of Card ID 2982 to false
  16.   Set hilite of Card button ID 2 of Card ID 2982 to false
  17.   Set hilite of Card button ID 3 of Card ID 2982 to false
  18.   Set hilite of Card button ID 4 of Card ID 2982 to false
  19.   Set hilite of Card button ID 5 of Card ID 2982 to false
  20. end ClearInfo
  21.  
  22. On CheckField do
  23.   Global CardNumber
  24.   Put Card Field ID 6 of card ID 2982 into Temp
  25.   if temp is not empty then
  26.     Go to Card CardNumber
  27.     Put Empty into Card Field ID 6 of card ID 2982
  28.   end if
  29. end checkfield
  30.  
  31.  
  32.  
  33.  
  34. -- part 1 (button)
  35. -- low flags: 00
  36. -- high flags: 2005
  37. -- rect: left=119 top=78 right=96 bottom=137
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Single
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   Global flag1
  49.   Set cursor to 4
  50.   Send "SingleT" to Card button ID 1 of Card ID 2982
  51.  
  52.   Get Hilite of Card button ID 1 of Card ID 2982
  53.   IF it is true then
  54.     Send "DoButton12" to Card button ID 12 of Card ID 3260
  55.   else
  56.     Send "ButtonOff" to Card button ID 12 of Card ID 3260
  57.   end if
  58.   Send "CheckField" to Card ID 2982
  59. end mouseUp
  60.  
  61. On Signal
  62.   Visual effect Scroll Right
  63.   Go to Card ID 2982
  64.   Repeat 11 times
  65.     Get Hilite of Card button ID 1 of Card ID 2982
  66.     IF it is True then
  67.       Set hilite of Card button ID 1 of Card ID 2982 to False
  68.     else
  69.       Set hilite of Card button ID 1 of Card ID 2982 to True
  70.     end if
  71.   end repeat
  72. end Signal
  73.  
  74. On SingleT
  75.   Global Flag1
  76.   Put True into Flag1
  77.   Set hilite of Card button ID 2 of Card ID 2982 to False
  78.   Set hilite of Card button ID 3 of Card ID 2982 to False
  79.   Set hilite of Card button ID 4 of Card ID 2982 to False
  80.   Set hilite of Card button ID 5 of Card ID 2982 to False
  81. end SingleT
  82.  
  83.  
  84.  
  85.  
  86.  
  87. -- part 2 (button)
  88. -- low flags: 00
  89. -- high flags: 2005
  90. -- rect: left=119 top=104 right=122 bottom=137
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: MarriedJoint
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   Set cursor to 4
  102.   Send "MarriedJointT" to Card Button ID 2 of Card ID 2982
  103.  
  104.   Get Hilite of Card button ID 2 of Card ID 2982
  105.   IF it is true then
  106.     Send "DoButton13" to Card button ID 13 of Card ID 3260
  107.   else
  108.     Send "ButtonOff" to Card button ID 13 of Card ID 3260
  109.   end if
  110.   Send "CheckField" to Card ID 2982
  111. end mouseUp
  112.  
  113. on MarriedJointT
  114.   Set hilite of Card button ID 1 of Card ID 2982 to False
  115.   Set hilite of Card button ID 3 of Card ID 2982 to False
  116.   Set hilite of Card button ID 4 of Card ID 2982 to False
  117.   Set hilite of Card button ID 5 of Card ID 2982 to False
  118. end MarriedJointT
  119.  
  120.  
  121.  
  122. -- part 3 (button)
  123. -- low flags: 00
  124. -- high flags: 2005
  125. -- rect: left=119 top=131 right=149 bottom=137
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: MarriedSeperatebutton
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   Set cursor to 4
  137.   Send "MarriedSeperateT" to Card button ID 3 of Card ID 2982
  138.  
  139.   Get Hilite of Card button ID 3 of Card ID 2982
  140.   IF it is true then
  141.     Send "MouseUp" to Card button ID 14 of Card ID 3260
  142.   else
  143.     Send "ButtonOff" to Card button ID 14 of Card ID 3260
  144.   end if
  145.   Send "CheckField" to Card ID 2982
  146. end mouseUp
  147.  
  148. ON MarriedSeperateT
  149.   Set hilite of Card button ID 1 of Card ID 2982 to False
  150.   Set hilite of Card button ID 2 of Card ID 2982 to False
  151.   Set hilite of Card button ID 4 of Card ID 2982 to False
  152.   Set hilite of Card button ID 5 of Card ID 2982 to False
  153. end MarriedSeperateT
  154.  
  155.  
  156.  
  157.  
  158.  
  159. -- part 4 (button)
  160. -- low flags: 00
  161. -- high flags: 2005
  162. -- rect: left=119 top=170 right=188 bottom=137
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 0 / 0
  165. -- text alignment: 1
  166. -- font id: 0
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: Headbutton
  171. ----- HyperTalk script -----
  172. on mouseUp
  173.   Global flag1
  174.   Set cursor to 4
  175.   Send "HeadT" to Card button ID 4 of Card ID 2982
  176.   Get Hilite of Card button ID 4 of Card ID 2982
  177.   IF it is true then
  178.     Send "DoButton12" to Card button ID 12 of Card ID 3260
  179.   else
  180.     Send "ButtonOff" to Card button ID 12 of Card ID 3260
  181.   end if
  182.   Send "CheckField" to Card ID 2982
  183. end mouseUp
  184.  
  185. On HeadT
  186.   Global Flag1
  187.   Put False into Flag1
  188.   Set hilite of Card button ID 1 of Card ID 2982 to False
  189.   Set hilite of Card button ID 2 of Card ID 2982 to False
  190.   Set hilite of Card button ID 3 of Card ID 2982 to False
  191.   Set hilite of Card button ID 5 of Card ID 2982 to False
  192. end HeadT
  193.  
  194. On Signal
  195.   Go to Card ID 2982
  196.   Repeat 11 times
  197.     Get Hilite of Card button ID 4 of Card ID 2982
  198.     IF it is True then
  199.       Set hilite of Card button ID 4 of Card ID 2982 to False
  200.     else
  201.       Set hilite of Card button ID 4 of Card ID 2982 to True
  202.     end if
  203.   end repeat
  204. end Signal
  205.  
  206.  
  207.  
  208. -- part 5 (button)
  209. -- low flags: 00
  210. -- high flags: A005
  211. -- rect: left=119 top=228 right=246 bottom=137
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: Widowbutton
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   Set cursor to 4
  223.   Send "WidowT" to Card button ID 5 of Card ID 2982
  224.  
  225.   Get Hilite of Card button ID 5 of Card ID 2982
  226.   IF it is true then
  227.     Send "DoButton13" to Card button ID 13 of Card ID 3260
  228.   else
  229.     Send "ButtonOff" to Card button ID 13 of Card ID 3260
  230.   end if
  231.   Send "CheckField" to Card ID 2982
  232. end mouseUp
  233.  
  234. On WidowT
  235.   Set hilite of Card button ID 1 of Card ID 2982 to False
  236.   Set hilite of Card button ID 2 of Card ID 2982 to False
  237.   Set hilite of Card button ID 3 of Card ID 2982 to False
  238.   Set hilite of Card button ID 4 of Card ID 2982 to False
  239. end WidowT
  240.  
  241.  
  242.  
  243. -- part 6 (field)
  244. -- low flags: 01
  245. -- high flags: 0000
  246. -- rect: left=126 top=47 right=64 bottom=349
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 0 / 0
  249. -- text alignment: 0
  250. -- font id: 3
  251. -- text size: 12
  252. -- style flags: 0
  253. -- line height: 16
  254. -- part name: Dummy field
  255. ----- HyperTalk script -----
  256. -- do not remove field, used later in script
  257.  
  258.  
  259. -- part 7 (field)
  260. -- low flags: 01
  261. -- high flags: 0000
  262. -- rect: left=102 top=80 right=95 bottom=119
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 0 / 0
  265. -- text alignment: 0
  266. -- font id: 3
  267. -- text size: 10
  268. -- style flags: 0
  269. -- line height: 13
  270. -- part name: 
  271.  
  272.  
  273. -- part 8 (field)
  274. -- low flags: 01
  275. -- high flags: 0000
  276. -- rect: left=102 top=106 right=121 bottom=119
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 0 / 0
  279. -- text alignment: 0
  280. -- font id: 3
  281. -- text size: 10
  282. -- style flags: 0
  283. -- line height: 13
  284. -- part name: 
  285.  
  286.  
  287. -- part 9 (field)
  288. -- low flags: 01
  289. -- high flags: 0000
  290. -- rect: left=102 top=132 right=147 bottom=119
  291. -- title width / last selected line: 0
  292. -- icon id / first selected line: 0 / 0
  293. -- text alignment: 0
  294. -- font id: 3
  295. -- text size: 10
  296. -- style flags: 0
  297. -- line height: 13
  298. -- part name: 
  299.  
  300.  
  301. -- part 10 (field)
  302. -- low flags: 01
  303. -- high flags: 0000
  304. -- rect: left=102 top=172 right=187 bottom=119
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 0
  308. -- font id: 3
  309. -- text size: 10
  310. -- style flags: 0
  311. -- line height: 13
  312. -- part name: 
  313.  
  314.  
  315. -- part 11 (field)
  316. -- low flags: 01
  317. -- high flags: 0000
  318. -- rect: left=102 top=230 right=247 bottom=118
  319. -- title width / last selected line: 0
  320. -- icon id / first selected line: 0 / 0
  321. -- text alignment: 0
  322. -- font id: 3
  323. -- text size: 10
  324. -- style flags: 0
  325. -- line height: 13
  326. -- part name: 
  327.  
  328.  
  329. -- part 12 (field)
  330. -- low flags: 01
  331. -- high flags: 0000
  332. -- rect: left=136 top=79 right=95 bottom=500
  333. -- title width / last selected line: 0
  334. -- icon id / first selected line: 0 / 0
  335. -- text alignment: 0
  336. -- font id: 3
  337. -- text size: 10
  338. -- style flags: 0
  339. -- line height: 13
  340. -- part name: 
  341.  
  342.  
  343. -- part 13 (field)
  344. -- low flags: 01
  345. -- high flags: 0000
  346. -- rect: left=136 top=106 right=122 bottom=501
  347. -- title width / last selected line: 0
  348. -- icon id / first selected line: 0 / 0
  349. -- text alignment: 0
  350. -- font id: 3
  351. -- text size: 10
  352. -- style flags: 0
  353. -- line height: 13
  354. -- part name: 
  355.  
  356.  
  357. -- part 14 (field)
  358. -- low flags: 01
  359. -- high flags: 0000
  360. -- rect: left=136 top=133 right=161 bottom=501
  361. -- title width / last selected line: 0
  362. -- icon id / first selected line: 0 / 0
  363. -- text alignment: 0
  364. -- font id: 3
  365. -- text size: 10
  366. -- style flags: 0
  367. -- line height: 13
  368. -- part name: 
  369.  
  370.  
  371. -- part 15 (field)
  372. -- low flags: 01
  373. -- high flags: 0000
  374. -- rect: left=136 top=173 right=215 bottom=500
  375. -- title width / last selected line: 0
  376. -- icon id / first selected line: 0 / 0
  377. -- text alignment: 0
  378. -- font id: 3
  379. -- text size: 10
  380. -- style flags: 0
  381. -- line height: 13
  382. -- part name: 
  383.  
  384.  
  385. -- part 16 (field)
  386. -- low flags: 01
  387. -- high flags: 0000
  388. -- rect: left=136 top=230 right=245 bottom=440
  389. -- title width / last selected line: 0
  390. -- icon id / first selected line: 0 / 0
  391. -- text alignment: 0
  392. -- font id: 3
  393. -- text size: 10
  394. -- style flags: 0
  395. -- line height: 13
  396. -- part name: 
  397.  
  398.  
  399. -- part 17 (field)
  400. -- low flags: 00
  401. -- high flags: 4000
  402. -- rect: left=292 top=146 right=174 bottom=437
  403. -- title width / last selected line: 0
  404. -- icon id / first selected line: 0 / 0
  405. -- text alignment: 0
  406. -- font id: 3
  407. -- text size: 10
  408. -- style flags: 0
  409. -- line height: 13
  410. -- part name: Spouse Name
  411.  
  412.  
  413. -- part 18 (field)
  414. -- low flags: 00
  415. -- high flags: 4000
  416. -- rect: left=216 top=199 right=216 bottom=421
  417. -- title width / last selected line: 0
  418. -- icon id / first selected line: 0 / 0
  419. -- text alignment: 0
  420. -- font id: 3
  421. -- text size: 10
  422. -- style flags: 0
  423. -- line height: 13
  424. -- part name: 
  425.  
  426.  
  427. -- part 19 (field)
  428. -- low flags: 00
  429. -- high flags: 4000
  430. -- rect: left=448 top=230 right=245 bottom=486
  431. -- title width / last selected line: 0
  432. -- icon id / first selected line: 0 / 0
  433. -- text alignment: 0
  434. -- font id: 3
  435. -- text size: 10
  436. -- style flags: 0
  437. -- line height: 13
  438. -- part name: 
  439.  
  440.  
  441. -- part 20 (field)
  442. -- low flags: 01
  443. -- high flags: 0000
  444. -- rect: left=485 top=230 right=245 bottom=499
  445. -- title width / last selected line: 0
  446. -- icon id / first selected line: 0 / 0
  447. -- text alignment: 0
  448. -- font id: 3
  449. -- text size: 10
  450. -- style flags: 0
  451. -- line height: 13
  452. -- part name: 
  453.  
  454.  
  455. -- part contents for background part 13
  456. ----- text -----
  457. Filing Status
  458.  
  459. -- part contents for background part 16
  460. ----- text -----
  461.  
  462. (Check only 
  463.   one box.)
  464.  
  465. -- part contents for card part 7
  466. ----- text -----
  467. 1.
  468.  
  469. -- part contents for card part 8
  470. ----- text -----
  471. 2.
  472.  
  473. -- part contents for card part 9
  474. ----- text -----
  475. 3.
  476.  
  477. -- part contents for card part 10
  478. ----- text -----
  479. 4.
  480.  
  481. -- part contents for card part 13
  482. ----- text -----
  483. Married filing joint return (even if only one had income).
  484.  
  485. -- part contents for card part 14
  486. ----- text -----
  487. Married filing seperate return.  Enter spouse's social security number
  488.  and spouse's full name here. . .
  489.  
  490. -- part contents for card part 15
  491. ----- text -----
  492. Head of household (with qualifying person).  IF the qualifying 
  493. person is your child but not your dependent, enter this child's
  494. name here . . . .
  495.  
  496. -- part contents for card part 16
  497. ----- text -----
  498. Qualifying widow(er) with dependent child (Year spouse died 
  499.  
  500. -- part contents for card part 20
  501. ----- text -----
  502. ).
  503.  
  504. -- part contents for background part 20
  505. ----- text -----
  506. Continue to next card
  507.  
  508. -- part contents for background part 26
  509. ----- text -----
  510. 2
  511.  
  512. -- part contents for card part 11
  513. ----- text -----
  514. 5.
  515.  
  516. -- part contents for card part 12
  517. ----- text -----
  518. Single.
  519.  
  520. -- part contents for background part 40
  521. ----- text -----
  522. 4:04 PM